home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / SEMAPHOR.P < prev    next >
Text File  |  1990-09-13  |  670b  |  27 lines
  1. temp <- <primitive 110 4 >
  2. <primitive 112 temp 1        " wait " \
  3.     #( #[ 250 0 148 242 16 80 201 247 10 32 95 11 22 242 95 \
  4.  10 18 248 6 242 16 81 193 241 96 242 250 0 149 242 \
  5.  245] \
  6.     #(  ) ) >
  7.  
  8. <primitive 112 temp 2        " signal " \
  9.     #( #[ 250 0 148 242 32 10 27 247 7 16 81 192 241 96 248 \
  10.  6 242 32 10 38 10 48 242 250 0 149 242 245] \
  11.     #(  ) ) >
  12.  
  13. <primitive 112 temp 3        " new: " \
  14.     #( #[ 33 96 245] \
  15.     #(  ) ) >
  16.  
  17. <primitive 112 temp 4        " new " \
  18.     #( #[ 80 96 245] \
  19.     #(  ) ) >
  20.  
  21. <primitive 98 #Semaphore \
  22.     <primitive 97 #Semaphore #List #\smalltlk\prelude\semaphor.st \
  23.     #(  #excessSignals ) \
  24.     #( #wait #signal #new: #new  ) \
  25.     temp 2 4 > >
  26.  
  27.